Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 589,198.6 2,962.40 160,382.6 1,178,503 5,927.45 334,457.6 589,304.67 100
lp://DOT/LCDOT 3,570,953.5 14,315.41 739,130.3 3,549,598 14,223.73 770,920.6 21,355.89 3.6
lp://AUSD/LCDOT 2,132,633.6 14,262.14 517,041.0 2,125,733 14,200.86 534,730.5 6,901.09 1.2
lp://ACA/AUSD 1,573,081.1 15,714.76 568,172.3 1,572,451 15,886.43 627,210.7 630.16 0.1

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,451,617.04 -562.85 -9,036.38 NA NA NA NA NA
lp://KINT/KUSD -1,261,189.15 -480.17 -5,980.20 NA NA NA NA NA
lp://PHA/KUSD -1,018,521.14 -158.86 -2,238.51 NA NA NA NA NA
lp://KUSD/KINT 1,240,512.06 -1,050.94 -5,277.52 20,293.50 1,410.50 11,525.59 1,220,218.56 NA
lp://KUSD/PHA 1,011,527.73 -139.69 -2,140.89 14,441.20 628.96 8,774.92 997,086.53 NA
lp://KUSD/KBTC 1,312,918.18 -878.02 -7,284.35 461,024.99 92,529.26 187,650.26 851,893.18 NA
lp://TAI/taiKSM 0.00 0.00 0.00 3,601.95 15.65 466.71 3,601.95 NA
lp://KAR/LKSM 792,529.94 30.06 45,924.28 791,048.27 30.00 71,835.58 1,481.67 NA
lp://KUSD/LKSM 508,137.51 112.43 116,247.46 507,030.07 113.25 149,968.17 1,107.44 NA
lp://KAR/KUSD 661,044.14 179.51 171,115.20 661,640.07 179.62 284,676.97 595.92 NA
lp://KAR/QTZ 29,460.05 738.00 14,693.30 29,695.02 740.90 32,441.83 234.97 NA
lp://KUSD/KSM 545,481.98 787.18 241,495.65 545,253.44 786.84 243,534.25 228.54 NA
lp://KSM/LKSM 100,244.20 755.20 9,545.59 100,034.21 955.67 26,103.78 210.00 NA
lp://KUSD/CSM 21,221.43 2,141.62 10,097.42 21,053.73 2,359.95 10,374.97 167.70 NA
lp://KUSD/QTZ 27,462.75 215.39 13,762.20 27,614.32 216.18 19,473.76 151.57 NA
lp://KUSD/BNC 56,145.52 176.11 5,036.11 56,011.62 174.62 5,519.20 133.91 NA
lp://KUSD/RMRK 11,427.90 3.54 6,852.02 11,498.61 3.57 6,852.54 70.71 NA
lp://KSM/ARIS 64.52 0.34 223.17 128.92 0.67 561.77 64.40 NA
lp://KAR/KSM 1,058,828.78 360.63 144,295.27 1,058,789.46 360.70 150,505.81 39.33 NA
lp://KUSD/ARIS2 56,083.82 177.61 32,376.40 56,122.33 240.01 82,893.99 38.51 NA
lp://KSM/RMRK 6,367.92 3.55 1,981.86 6,402.58 3.56 2,010.74 34.66 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```